﻿Imports System.Data.SqlClient

Public Class clsRoles

    Private mRol_id As Int32
    Private mDescri As String

    '/////////////////////////////////////////////////////////
    '/ Propiedades
    '/////////////////////////////////////////////////////////

    '----------------------------------------------------------------
    ' Propiedad rol_Id():Retorna y asigna valores al atributo rol_id
    '----------------------------------------------------------------

    Public Property rol_id() As Int32
        Get
            Return mRol_id
        End Get
        Set(ByVal value As Int32)
            If value > 0 And value < 2000000000 Then
                mRol_id = value
            Else
                Throw New Exception("No se puede utilizar el código de rol. El código debe ser mayor a cero (0).")
            End If
        End Set
    End Property
    '----------------------------------------------------------------
    ' Propiedad NumDoc:Retorna y asigna valores al atributo mNumDoc
    '----------------------------------------------------------------

    Public Property Descri() As String
        Get
            Return mDescri
        End Get
        Set(ByVal value As String)
            If value.Trim.Length > 0 And value.Trim.Length <= 30 Then
                mDescri = value.Trim.ToUpper
            Else
                Throw New Exception("Verifique La descripcion de Rol.")
            End If
        End Set
    End Property

    '/////////////////////////////////////////////////////////
    '/ Métodos de la Clase
    '/////////////////////////////////////////////////////////

    '---------------------------------------------------------------------
    ' Constructor de la Clase
    '---------------------------------------------------------------------
    Public Sub New()

        MyBase.New()

    End Sub
    '---------------------------------------------------------------------
    ' Destructor de la Clase
    '---------------------------------------------------------------------
    Public Sub Dispose()

        MyBase.Finalize()

    End Sub
End Class
